#this is a comment in R

#set the vector
rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)
#compute max 
max(rawdata
 min(rawdata) #compute min
summary(rawdata)#report summary stats

#plot raw data
plot(rawdata, type="b", xlab="Time in Seconds",ylab="CPU")

#plot min/max/mean lines
abline(h=max(rawdata),v=0)
> abline(h=min(rawdata),v=0)
> abline(h=mean(rawdata),v=0)

